(calendar-mode-map): Pass (keymap) as KEYMAP arg to where-is-internal.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 366e5c243deafd594fe6225e592238a33bf3dd73..53676fa19d1af3afeabe2c4269bd9f00f9525ce9 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1434,7 +1434,7 @@ the inserted text.  Value is always t."
                  'copy-region-as-kill 'downcase-region 'upcase-region
                  'capitalize-region 'write-region)))
     (while (car l)
-      (let ((k (where-is-internal (car l))))
+      (let ((k (where-is-internal (car l) '(keymap))))
         (while (car k)
           (define-key calendar-mode-map (car k) 'calendar-not-implemented)
           (setq k (cdr k)))